home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 52 / 64er_Magazin_Sonderheft_52_19xx_Markt__Technik_de_Side_B.d64 / listing 18 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  252b  |  9 lines
  1. 1200 rem
  2. 2000 rem reaktion auf befehle (allgemeine action)
  3. 2100 rem nimm routine
  4. 2110 ifve<>15then2200
  5. 2120 ifge(g1)<>znthenprint"ich sehe diesen gegenstand hier nicht !"
  6. 2125 ifge(g1)=-1thenprint"sie haben diesen gegenstand bereits !"
  7. 2130 ifge(g1)=znthenge(g1)=-1:print"ok."
  8. 2200 goto1000
  9.